home *** CD-ROM | disk | FTP | other *** search
/ Golf Digest's Best Places to Play / Golf Digest's Best Places to Play.iso / diamond / dbrs_ibm.dir / 00029_Script_UltimateScript < prev    next >
Text File  |  1995-05-15  |  1KB  |  43 lines
  1. on exitFrame
  2.   go to marker(0)+4
  3. end
  4.  
  5. on mouseDown
  6.   set ButtonNum=the clickOn
  7.   if ButtonNum>0 then
  8.     set ButtonName=the name of cast (the castNum of sprite ButtonNum)
  9.     if (ButtonNum > 1) and (ButtonNum < 8) then
  10.       WhatCouple(ButtonNum)
  11.     end if
  12.     if chars(ButtonName,1,6) = "ToMain" then
  13.       if PressBtn(ButtonNum) then
  14.         AllPuppetsOff
  15.         updateStage
  16.         go to marker(0)+5
  17.       end if
  18.     end if
  19.     if chars(ButtonName,1,4) = "Help" then
  20.       if PressBtn(ButtonNum) then
  21.         showHelp
  22.         puppetsprite ButtonNum, true
  23.         set the castNum of sprite ButtonNum to the number of cast (ButtonName)
  24.         puppetsprite ButtonNum, false
  25.       end if
  26.     end if
  27.   end if
  28. end mouseDown
  29.  
  30. on WhatCouple ButtonNum
  31.   repeat with i=2 to 7
  32.     puppetsprite i, true
  33.     set the castNum of sprite i to the number of cast ("Ultimate" & (i-1))
  34.     puppetsprite i, false
  35.   end repeat
  36.   puppetsound "Ultimate" & (ButtonNum-1) & "Sound"
  37.   puppetSprite ButtonNum, true
  38.   puppetSprite 8, true
  39.   set the castNum of sprite ButtonNum to the number of cast ("Ultimate" & (ButtonNum-1) & "Down")
  40.   set the castNum of sprite 8 to the number of cast ("UltiCouple" & (ButtonNum-1))
  41.   updateStage
  42. end
  43.